Sooo 
WINTER ISSUE 


lz 

m= Santa’s got his ZX printer working again and he is 
ilchecking his list of the SINCLAIR users to see who is 
Ty] still on his appointed route! CAre you CURRENT?!5 


Winter. @citeniod, 


Hello to all! Here we are comming up to the end of another 
year and another holiday seagon! Where has this year gone 
to? It just seens like we had summer a few short weeks ago. 
I hope you are all well and using your computers! I am stil] 
plugging along. Az you will recall from our last editorial, 
I was looking far an [2M clone. Well, I got one but had to 
send it back due to a problem with the bios chips and the 
hard crive, [ zhizid have it back in 3 week. Lat ne tell 
vou, if you ar2 thinking cf purchasing a clone, you better 
be prepared to co a LOT of reading, The clones with out a 
doubt are supericr when it comes to hardware but their 
software can be areal pain in the back side! I think a lot 
cf the problem is due ts (doesn’t this sound familiar) so 
@any ways to configure a PC, What it boils down to is that 
you @ust install your programs before you use them, This can 
be easy or hard depending on what type of drives you have 
and how @uch memory you have ECT. Anyway, it will be a time 
before I get the hang of mine. [ aa hoping to get help fro 
cthers in our group that have already jumped into the IBM 
frying pan. (18M UBM WE ALL BM FCR IBM!) : 


How are your SINCLAIRS doing? Mine is still going strong. 
T hope { will still be receiving quality articles for the 
RAMTOP as we have in the cast. Please remember, aur group is 
only as good as what YOU put into it! We all tend to get lax 
ag tige goes on. [ haze jou will cansider sending articles 
about other computer evstens a¢ well. Your Sinclair may be a 
bit jealous but then just aavbe it will work a bit better 
for you! One good project that is both useful and fun is 
setting up two normally incencatible systems to “talk® to 
each other. The best way to do this is with the serial port. 
Most computer: have an FS-272 serial port. The QL and the 
1-83 both have zerial ports built in. The 2068 can have a 
sertal port added in several ways and the 1000/1500 can also 
be set up with a serial part also. There are many articles 
asout this. In the comming yezr we will be looking into 
items such as this. 


If you can think of ways to interface a Sinclair computer 
ta another type of computer, write a short article about it 
and send it to ne! You aay also upload it to TIMELINES BBS. 
Pob Parish is still running his BBS. You may call any night 
froa {Opa to bam EST. He fas up/down loads and auch sore. 


You will find we have quite a lot in this issue. You will 

find prograas by Toa Jenning and Henry Kimmerle. If you have 
any questions about these programs, give them a call. 
Toa Jennings: 214-042-4299, Henry Kiamerles Bowling progras 
ig designed to be burned onto SFROM since the prograa is so 
long and requires a LOT of RAM for variables. [t will keep 
track af team and individual averages and more. His nuaber 
is: 216-226-5787. I hope you will take the time to check 
these programs out! 


That’s it for this time! Hope you all have a real nice 
holiday season! Take Care to all of you! Janes G. DaPay 


e 


SELLING DIGITIZER 
FOR THE 2068 


If you ever wanted to put video 
pictures on your 2068, it can now be 
done. The S.M.U.G. group are now 
taking orders for digitizer boards in 2 
forms. For one [ ully assembled, 
tested and shipped right to your 
doorstep, the cost is only $49.95 
plus $3. S/H. If you want the bare 
board and are electronically inclined, 
the cost is only $19.95 plus $3. 
S/H. 

The price of the boards includes 
the hardware and software, is on 
cassette. The bare board also 
includes the schematic and parts list. 
Both boards have an leading edge 
connector and is ready for a mother 
board. If you want a feed through 
connector, like the AERCO, there is a 
$5.00 extra charge for this type 
connector. The turnaround time for 
these boards will be about 6-8 
weeks. Please remit the amount 


with each order. You can send to: 
Sinclair Milwaukee Users Group 
P.O. Box 101 

Butler, WI 53007 

If you want more info., write them 
on this club project. 


Clive says: 
"This article came 
from The HACKER." 


Well another vear has gone 5y and aost of us are still alive 
with Uncle Clive. Qur Sinclair Community in the YS has grown 
smaller as the prices of PCs has decreased. The idea that 
our Ginclair Club could support our Sinclair abit and 
generic comguter interests as some cf our sembers upgrade 
has not been as sucessful as I had hoped. Sart of the fault 
ig gine since I was not here for cart of the vear and the 
club cannot run itzel!, and serhass ‘ha user base 4as grown 
tao small already. We need a acre active nembershic as ur 


group grows smaller, That means articias éria you ¢2lis wha 
live gut af town, for we ead contributions to the 
newsletter frog everyone. From the ‘eral menbershic we need 
ideas and nels far the aeetingz, srcject: and the newletter. 

If we are going ta gurvive at ail wa ‘ave t2 contribute what 


@acn of us can to the club, 


In the UK the Spectrug and the GL has uf 


utfared a decline 
tog Qut ty virtue of the large user sase and the emphasis on 
gaaes the Spectrum is stiil surviving. The QL dosen't have 
quite the supcart that te ipectrum dses Sut the suality 9¢ 
users seeas to Ge auch higher. Srsugs lila Suants annance 
the lives of our @achines. Again a subseriatisn ¢: Guanta 


costs #17 ,iz payable by slasti: ‘Mcharge sr Visa) and 3 
available by writing to Philio Sormac, {© Grosvenor Creecen 
Griasby, South Yumberside ONT? 992, Enclanz, 


rw 


220-Cla-eree:- 
twee we Sa! Saas 


oo 


Gernany 4a: 722 


r wha mu - 
te: B wee oe 


orice 
re 


ate Ncdace'p 
surerusrarl. = 3 


hee Thums eS ae W 
sugport22. This: 3 32 
SC style interéace which ‘se uz id Or 
Vy 
= two hard disks are 
also ugplied, The cost is 
189078! smculd vou want to 


Miracle Systeme aio has a hard dish interface cut which Aas 
a 13h drive and intertace enclosed in ane box. Probably the 

422 to ineuire about this would be Sharo’s, Box 724, 

csvilles, VA 32111. Rebel Electronics waits a dis 
les iler that olugs into the aoe 
supports STS94’ ST412 Drive interface 
buffer, Price is #19& for the interac 
Electronics Ltd., 12 York Place, Leeds L 
cali them at 9TET 94479, 


i. Write to Fabel 
1208, England or 


These wno have used the °C anulator on the OL wera iapressed 
by Now slaw the gragra@ ran, Aparently the creators o/ this 


software package Digital Precision felt that 5 thange was 
needed toc so a faster PC emulator :s now available called 
the “PC Conquerer*. 't will run almost {00% faster than the 

lution and for those who curchased that arcgraa : special 
upgrade orice will be available. 


Anew ROM for the QL is now available which fixes any of 
the bugs and problems with the OL and THOR SOS. I Seatures 


caster RAM testing for Truap Card users, faster jrapn.cs, 
acre use sade cf integer @ath where appropiate and a nusber 
Tew commands and improved features. The cast is #30, #25 

you belong to Quanta or QL SUB + a disk or aicrodrive 
ane a copy af the Original QL Rom. The reason for this is 
that Minerva uses some af the Original QL °0™ code and they 
Gust cc this to avoid copywrite infringements. Also the 
media is used ¢s give you some {5 pages cf docuaentatisn, 
Weste tc GView 29 Carnaby Clase,  Sodeancheser, 
Cambridgeshire FEL8 SEE, Engianc. Telephone # 9480 4i7aa4 


2058 <a wire oot. 


imoa gligntly different vein comes 


Gernany, “hit i3 a GL Sardwara eaulat 
APART SP F 4 


Rin 37 aachines, [¢ ron 


3 ie 
Baulatsr write tc) Jechan 
Nerz pain ia ct llen Winkel i2, 4 

serganv, He alsc haz a 24 Pin crinter utilites crcaraa ‘or 
the GL that aight be 24 interest to someone out there, 


Ncw for some information for Spectrua and 2048 users, Zaora 
ang WM] sold out there inventor; to EMG whe 


as 


2argest degier in North Amer:ca, Curry has also aoved to 
clones. The Sinclair Echo which you aay have heard about, 
started cut with about twenty or thirty sessages a day nas 


Slowed dawn and there aay be some problems with aessaces 


petting fost cn the S100, The above inforaation coses {roe 
Phrans: Sats, Thanks Pata, My local Fido run Sy ane 3 the 


-. ze é Y epee Kp ma gs we 

yeenerst: ng cut Age oY @ucT,. aggarestiy 
facets Pert. nan = gas cre binge 
Tri*" Sypa goctor dawalsage? 3 *:ie Toe 5 tas 


.2 20t have beer availafe t2 “i: gince it ‘ad 
* Was....the 
cn othe) 6oreard 
ex waz oss ant: 1 
n touch with ae a ia 
23/2 3 aessage Aer through E-Mail or 
cee am af CTO ba TN WII TIT 
a Sa eT owes 8 aa ob cg ewe 
a3 Blane «on @ 2 ee:-aia , iom 3 inv om teat 
Neii Elias ipert = crusie waake in the UR cris fgtt 
reccrfes cn the vast aasuné¢ of Scectrua software 
avai.35i2, Alis 79 anted in the works is tte SAM TIUEE y 
Ses TILA pewkion ms 1 a fe cae ays ‘ eae 
22 a 7-89 gachine which Will ey PM asa built in dis 
drive, axtra SAM, catworking AND SFEITEUM mulation, Write 
- eosne Be + whims be ea os C..ene 
£3 MILES SORDON TECHNCLOSY, iUskeside, Phoeniz Way, Swansea 


any * 


Entaroris]a Park, Swansea, 247 SEH, England, Teleshone # 97272 


792190, 


Max finally wat able t> get a rasponse {roa Tia Weods at 
Tiae Designs Sut it ig still uncertain if any of us will 
reciavea cur tack issues, AL that Castsida neeti:g there were 
ai least nine ceccle who were owed Sack issues cf TDM. So if 
you have a acdem and want to leave = sessage to Tiae 
Designs, they have a QBS running at 290 baud only at 


507-824-2458 and vou should be able ¢2 raach Tis Woods 
there, 

Weil [hope that all of our Sinclair and Timex people wil? 
nave a Happy and Safe Holiday Season and that we'l! still 5e 
around in {0C% st this tise af year. Good Luck to all of 
you and let’: gee some new programs in the comming vear. 
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pin 13 to pin 


8301 ground with a 1000pf capa- 


citor. 


Connect the CPU ground to the 


Solder a 0.22ut from 
15 of the 68006. 


Please acte that we are NOT responsible 
for dasage to your computer! 


5235 QL tips and hug fixes 
$3 es from a recent QL WORLD. 
oa" & > 
x22 r=) 
34 5 F = Sinclaiz/QL World November 1989 
62es 
oF 
25° a Remedies 
8325 a 
423 ¢ 33 Two very knowledgable QL 
£5 33 <os enthusiasts to whom | am 
35 indebted have looked at the 
fs problem of random crashes 
5 fe - and have produced the follow- 
< a 3° ing remedies. Let me stress 
“ = that the work involved should 
n cy (e) 
4 a e be attempted only by those 
- 4 = S P with sufficient knowledge and 
i = 3 é soldering skills. 
ar Uf &. 1, Replace the 7805 with the 
es Hl ui s 2amp 78S05. 
: i vi ge 2. Check that the voltage at the 
2 Begescuce s= 68008 is 4.9V. 
3 ah ee 35 3. Put a 0.1mfd capacitor 
3 | =3 between the centre and right- 
. s€ hand pin of the 78S05. 
5 oF; 32 4. Replace the long jumper 
ue iota BERRI as — Laat i cme e the 
sah ick track just below the 9-way 
Ht Bt membrane connector with 
solid cored insulated wire with 
Teese two or three ferrite beads on it. 
| | hated 5. Connect a 0.01mfd capaci- 
Ri tor between pin 6 and pin 15 of 
p | the 8301, then a 0.001mfd 
Fs CS from pin 6 of the 8301 to pin 15 
ks | and pin 35 of the 68008. 
ul Las ae 6. Solder a 0.01mfd capacitor 
& \@ é in parallel with a 10mfd 10V 
£ By ; 7 _—_— Pe tantalum capacitor and con- 
Fy $ = 4 4 coma «eo 2 nect to pin 20 and pin 40 with + 
Red ; eed aaa |e 3 to pin 40 of the 8309 co- 
Blo < oO. rocessor. 
ere jo 3 eC « CH P=) a p 
Sso 
age a & eee) esate | 83 
pd ; ee F ; 
i] cseo5> a&@ 
323 a Se 
2 6.) 2 3¢ A. Change 1C19, IC20, 1C21 
i—_T to eS «o> 33 and IC27 for their HCT equiva- 
czs "T—e | pA = lents. 
Lomas ye (} es eto _— <3 B. Connect a 68pf capacitor 


between each data line and 
ground. 

C. Replace the 0.01mfd capa- 
citors between each RAM chip 
with 0.33mfd if the RAM chips 
are the slow 200ns types. 

D. Fit a 4.7mfd tantalum capa- 
citor across the supply pins of 
every fourth RAM chip in the 
QL. 


With a small outlay and 
some careful work you will 
have a QL which is completely 

revit reliable and crash-proof. 


DAA’ S roa Cokes 
HAVE YOU EVER HAD AN ODD COMPUTER 


EXPERIENCE? TELL US ABOUT IT! HERE 
IS ONE TO START. 


Years back, when so many 
started on the T/S 1000, 
listed in the F.D. 
son for this machine. I did get 
quite a few calls, some with a pecu- 
liar twist, but I thimk this 1s my 
best. 


of us got 
my Name was 
as a contact per- 


A retired doctor called to say that 
he took advantage of a Fic WN Fay 
promotion: with $ 100 of checkout 
tapes he could buy the T/S 180@ with 
i6 EF Ram for #¥ S5@. He had it at 
home and could not get the cursor on 
his TV, I went over the hack-up pro 
cedure with him over the phone and 
he said he would try again. 


He called back 
cursor. I invited 
house and showed him 
working canditioan. He went home and 
tried again, still no cursor. We 
reviewed the procedure again cyver 
the phone, even making sure his 
power supply was plugged ain, still 
nmathing. 


soon, still no 
him over to my 
my set-up, in 


The only thing left ta do was for me 
te go to his house, bringing my sys- 
tem to replace his components one at 
a time to find what was wrong. His 
hause was impressive, located in 
Shaker Heights with an outstanding 
garden in front. He was set up ina 
room next ta the kitchen, so he in- 
troduced me to his butler and his 
cook working there. Then we went to 
work and found that the power supply 
was defective. 


T went home to get 
hot line number 


him Sinclair’s 
(remember that?) and 
found that he had located a new 
supply at the supermarket main 
office. He got his cursor at last - 
and never did anything with it! I 
checked with him a few times, and he 
wasS going to study the manual, then 
he was going to take a college 
course on computers, and the last 
time he was going to buy an IBM, so 
that he could balance his checkbook! 


Max Schoenfeld 


ff moldy oldy for the: Spectrun, 
Faster BASIC from 2X COMPUTING 1966 


Maicolm Sargent offers 
a few ideas on how to 
speed up your 
programs without 
resorting to machine 
code. 


Basic on the Spectrum is very 
slow and to write faster programs 
you must revert to machine code 
or a compiler. However with the 
following routines you should be 
able to speed up your programs 
without getting bogged down in 
mic. All routines should work on 
all versions of the Spectrum. 


Interrupts 


The Spectrum interrupts every 
two milli-seconds to do a 
number of semi-essential 
operations which include error 
checking and checking if the 
break key is pressed. We can 
disable the interrupts by three 
machine code instructions ‘XOR 
A. ‘OUT (255),A’ and ‘DI’ (followed 
by a ‘RET’ to return to Basic). This 
can be used in Basic by the 
following line at the beginning 
of the program: 


40 CLEAR 64999:POKE 
65000,175:POKE 65001,211:POKE 
65002,255:POKE 65003,243:POKE 
65004,201:RAND USR 65000 


After interrupts have been 
disabled Basic will run a little 
faster and any error will cause 
the machine to crash (pull the 
plug). At eh end of the program 
there must be a line to enable 
the interrupts or the computer 
crashes and to stop this use the 
line below as the last one 
executed in your program. 


9999 POKE 65000,251:POKE 
65001,210:RAND USR 65000 


Due to the way Basic is written, 
as the program increase in size 
the slower it runs. However if we 
use less memory the program 
will run faster and you can use 
the following ideas to keep the 
program short. 

4. Have all subroutines at the 
beginning of your program as 
the Basic has less lines to look 
through to find your line. 


ZX Computing Monthly - June 1986 


2. Initialise all variables at the 
end of your program und use 
VAL and CODE when defining 
variables as this saves memory. 
3. Use multi-statement lines a 
they save a lot of memory and 
run faster. Do not use REM 
statements in these multi- 
statement lines. 

4. Have very few, if any REM 
statements. 

5. When running a. program and 
Basic comes to a GOTO (line no., 
Basic looks through every 
memory position until it comes 
to one the same or the nearest 
after it. Then it alters the system 
variable ‘NXTLN' to the address 
of the line number and executes 
it. However to save the computer 
carrying out this very time 
consuming process you can 
poke the system variable to the 
address and do away with the 
GOTO statement. Use the 
following program to work out 
the line number's address and 
replace the GOTO with POKE 
23637,(LO BYTE):POKE 23638,(HI 
BYTE). When aitering lines 
remember to refind the address 
of every line after the altered 
line. 


9998 INPUT “LINE NUMBER~’;LN: 
LET A=41472-—(65535—USR 
7962):LET B =(PEEK 
23635°256)+PEEK 23635: FOR 
S=B TO (A+B+400):IF (PEEK 
$°256)+ PEEK (S+1)= LN AND 
PEEK (S—1)=13 OR (PEEK S°256) 
+PEEK (S+1)=LN AND PEEK 
(S—1)=128 THEN LET HI=INT 
(S/256):LET LO = 
S—(HI°256):PRINT “LINE NUMBER: 
‘LN; ADDRESS:’;S;“HI 
BYTE ~;HI;“LO BYTE —’;LO:STOP 
9999 NEXT S:PRINT“NOT FOUND’ 


6. A fast way to get the value of 
a key being pressed is to PEEK 
the value out of the system — 
variable ‘LAST K’ (23560). The 
statement to read the keyboard 
into a$ is 4000 LET 
AS=CHRS(PEEK 23560):POKE 
3560,0 


0. 
7. To test if you have found any 
new ways to make your 
programs run faster try this 
routine 


10 POKE 23672,0:POKE 23673,0: 
POKE 23674,0 (then RUN the 


pase salt 

99 PRINT “TIME PASTED IN 1/50 
SECONDS IS”; PEEK 
23672+256° PEEK 
23673+65535°PEEK 23674 


Ss 


Here is TRIG=11 by Tom Jennins. 


This progras calculates degrees and angles for triangles. 


3-35-35 5412 bytes 


WMT BREAK BACK To 846 


t) 


sii 
For the fF irset Pte: 
Bk@g Far, 
b FRR valid entriscs 
gd fidé 3. "A.B = 
A,b.,c'--side a. a 
C-  Orr “Bva.c%--sig 
FB aGo 8" ote "Ca, 
“B.C ar “Boa,b" 
“a,b, C's Angie & 
2b oar a Da = pe ee wo 
mglie 2. "A.B" aor "Avg 
ebee? (Oe ay Bac 
NT AT 18.4: "Enter 
.22 The Seas 5 an 
Statements rE 
ter 3393 PF 
- PRE Si t L 
A BAiric., 
ZS go Te GN your sun, 
va Have fF 
eee | Dg 
F > STOP 


NM E: 13.8: 
C: PRI INPUT 
RI AT E: FR 
eee 713) RIHT A 
:23 
Re od +2 THEN LET Hel 
IF @ THEN LET H=28 
IF 8:8 THEN LET J=a2 
IF @ THEN LET J=sa 
IF €:8 THEN LET K=4 
r @ THEN LET K=a 
F O:@ THEN LET L=38 
IF ®- THEN LET Lea 
LE -@ THEN LET mais 
IF 8 THEN LET mse 
IF @ THEN LET i=x32 
iF @ THEN LET Nisa 
LET TsH+J3+K+Lehen 
60 TO 285 
PRINT AT 23.1; ‘Press ANY KE 
aan Problem’: PAUSE @: Go 
IF T=3 THEN FRINT AT 17,23; 
A+B): GO SUB 288: FRUSE 2 
3229 
IF T= THEN FRINT AT 17,13; 
A+Ci: GO SUB 288: PAUSE a- 
g2aa 
IF Ts THEN PRINT AT 17,.23:1 
+03: GO SUB 288: PAUSE @: & 
3382 
iF T=? THEN PRINT AT 9,2; ° 
gth of gt Least ane ri m 
@ included. Try ge f°. OS 
208: PAUSE 4e4: GO TO 32880 
F T=ll THEN PRINT AT 23,13 
i iBy 1384PT) “SIN (A/1804PTI) 
233: PAUSE @: 50 To 32a 


THEN PRINT AT 19.23 
B8S4PTi -SIN (A/L8@sPr) 
PAUSE ‘2: 60 TO sae 


THEN PRINT AT 13,3: 
@ePITii-3SIN (Be -1304PI 
@2: PAUSE @: Go To 3a 


Su 
IF Ts22 THEN PRINT AT 13,23 
h f139¢PTi -5IN (8B 1384PT) 
3B 208: PAUSE a- GO To 388 


IF Ts25 THEN PRINT AT 18.13 
LESSIN (Avi3804PI) -O1 -PI4i30 
3UB 288: PAUSE @: GO To 38a 


AMFLE OUTPUT ON PAGE 12, 


T2265 THEN PRINT AT 17,5; 
#3IN (iB- -@@0201! -180zPT) - 
ee SO SUB 20@: PAUSE 2a: 


T=23 THEN PRINT AT 13,23 
t2+Etai -(24D2E 4005 iCvia 
GSO SUB 2808: PAUSE @: Eo 


}£3IN (Cri 1easet) 


FRINT AT 1 
BQePTi eDi PI 
USE @: 60 TO 


THEN PRINT AT 22.: 
ei-if4*eD4Fe4Cos5 | 
HB 28a: PAUSE a2. 


Fe 


co 3ae@ 
28 IF Tsd44 THEN PRINT AT 17.2; 
: DeSIN (o-1L80ePIi «Fi -PI4ida: 
i UE 2808: PRUSE &@: GO TO s8ea 
4 IF T=43 THEN PRINT AT 19.3: 
Si (‘Ete+Fto! -(24FeFeC05 (Aisa 
$F i: 60 SUB 20@: PAUSE a: Go 
TO @ 
45 F T2588 THEN PRINT AT 17.22 
i F+S5IN (8 /130¢PI) -Ei -PI413a 
60 5UB 288: SAUSE @: GO TO 38a 


THEN PRINT AT 13,13 
f/L304¢PI) -Fi -PI4139 
PAUSE @: GO TO 32a 


THEN eae e34 ert 8) 


mo 


REM 
CLEAR 
PRINT AT @,2:; ‘RIGHT’; AT 1L.e 
ANGLE" 
PLOT 13.111: GRAY 38.8: FLO 
,iLi: GRAW 2,48: CRAW &a@.-4a 
PRINT 4ST 4,2; "“8"°;AT F.2:5°R 
et ae and 
PRINT AT 5.2 c° AT 4 a 
a: SB. 
PRINT AT 8,17; “OBLIQUE: AT 
> “TRIANGLE” 
PLOT 236.231: ORAW 33,8: FL 
6.111: GRAY 27,48: PLOT 152 
DRAW S6.-a41 
PRINT AT 4,28; ''B"; aoe it ria 
TT 7 253°" 
O72 PRINT AT 5,17; " AT 5,25 
"AT 8,275 °b" 
316 2 PRINT aes d2,2; "ENTER KNOUN 
Al (A,8,C0,3,b & c; use 2 We 
m own} FOR “ANGLES AND SIDES. : 
eg i waives for bath.) " 
pee PRINT AT 17:1; ‘R= 
he Lies ‘SAT 1F.al 
= “SAT 29;4; "ase 
aT 20,11; "b= “TAT 19,21 
size PRINT AT 3,27; "Brong": aT 1. 
2a?i entry" AT 2,27; "press":aT 3, 
3132 s0 TO 7 
3235 IF T=? THEN PRINT AT 9,0: “H 
Length of at Least one side mus 
t be included. Try again... sa 
SUB 2808: PAUSE ¢ed: GO TO 38280 


Please note that this program will need to be burned on EPROM to 


run. This is due to the large program plus 


variable area. 


for a large 


need 


Call Henry for details (216-236-5787) 


Here is the line listing for Henry Kimmerle’s BOWLING program. 


1 PRINT AT VAL “S",VAL “O"{ "Load BOWLING variables from tape PRESS ANY 
2 PAUSE WAL “O"! LOAD “BOWLING” 


10 BSOROER VAL "1"! PAPER VAL "1"1 INK VAL 

19 PRINT AT VAL “O",VAL “7"$" OOO Uo VU RRRR *. 

29 PRINT AT VAL “1" VAL “7"3°O 9 U VW R_ R* 

Z1 PRINT AT VAL “2",VAL “7"5"O OF U U_  RRRR” 

22 PRINT AT VAL “S",VAL “7"1"°O OF YW VY RR" 

23 PRINT AT VAL “4",VAL "7°53" 000 WUY RR" a 


24 PRINT AT VAL "6",VAL "8"}" BOWLING LEAGUE ” 
25 PRINT AT VAL "S",VAL “8"7"s OM EN Um eM 
26 PRINT AT VAL “10",VAL “S"$"1. CREATE NEW LEAGUE “* 
27 PRINT AT VAL “12",VAL “S"4"2. ADO WEEKLY SCORES “ 
28 PRINT AT VAL “14",VAL “S"]"3, CALCULATE & STORE 
29 PRINT AT VAL “16",VAL “S"3"4, LPRINT MENU 
3@ PRINT AT VAL "18",VAL “8"$"S. INFORMATION WINDOW” 
31 PRINT AT VAL “20",VAL "S"1"6. SAVE RECORDS ” 
33 PRINT AT VAL “2i",VAL “S"s "PRESS NUMBER OF CHOICE” 
38 IF INKEY$2"" THEN GO TO VAL "38" 
36 IF INKEY$="1" THEN GO TO VAL "2190" 
37 IF INKEY$="2" THEN GO TO VAL “2290" 
28 IF INKEY$#"3" THEN GO TO VAL "2360" 
39 IF INKEY$="4" THEN GO TO VAL “2490" 
40 IF INKEY$""S" THEN GO TO VAL “28¢9" 
41 IF INKEY$="6" THEN GO TO Val "2860" 
42 GO TO VAL “38" 
45 sToP 
100 REM ENTER LEAGUE NAMES 
161 CLS : PRINT AT VAL “S",VAL "2"; "THIS WILL CLEAR MEMORY OF ALL FILE RECORDS. 
“1S THAT WHAT YOU DESIRE? ANS .¢Y/N>" 
16Z IF INKEY$="Y" OR INKEY$2"y" THEN GO TO VAL “1600” 
103 IF INKEY$="N" OR INKEY$="n" THEN GO TO VAL "10" 
104 IF INKEY$<>"Y" OR INKEY$<>"N" THEN GO TO VAL "102" 
165 STOP 
116 POR y=VAL "1" TO VAL "12"! INPUT “Team Namep  “3x$ 
115 LET Te<¢ yo=xs 
120 FOR x=VAL "1" TO VAL "7" 
125 INPUT “Bowler’s Name? Enter STOP if no name “3x$ 
130 IF x$=" STOP “ THEN NEXT y 
13S LET N¢<y,x>=x¢ 
199 NEXT xs NEXT y 
150 CO TO VAL "190" 
200 REM ENTER SCORES & CHECK ARITHMETIC 
261 CL$ 1! LET WEW+VAL "1"3 FOR ysvVAL “i" TO VAL "12" 
202 PRINT TS<y>g" “EWE” WEEKCS>" 


SEE SAMPLE OUTPUT ON PAGE 12. 


203 FOR xsVAL "2" TO VAL "7"3 IF N$< yx” “ THEN NEXT x3 IF x®VAL ” 
8" THEN GO TO VAL “218" 
204 PRINT TAB VAL “2"3NSC YLX>E" 


26S LET TSVAL “O"S LET SMVAL “O"! FOR Z®VAL “1" TO VAL "3"; INPUT “ScorePp If ma 
mM absent, PRESS N. Input spaces if no game."1x$ 

206 IF x$™"n" OR X$™"N" THEN LET P=PEEK VAL "23689": PRINT AT VAL "“24¢"-P,VAL "9 
a ia “§ PRINT AT VAL “24"=-P,VAL "“O"Es NEXT x 
} 207 IF xg" “ THEN PRINT ” “gt NEXT Z 
{ 203 IF Y=VAL "19" OR xmVAL "8" THEN GO TO VAL "218" 

203 LET $$ y,x,W,Z>9xe 

210 IF G$< y,x>=" “ THEN LET G8< y,x >=" 900" 

211 PRINT x$" “$4 LET T#T+VAL x68 IF VAL x$>VAL G$<¢4,%> THEN LET C86 Ux ext 
212 IF F$<y,x>8" “ THEN LET P¢< y,x>="900" 

213 NEXT Zs PRINT “ “sTs IF TOVAL F8¢¥,x> THEN LET F¢<y,x>#STRS T 

214 LET S=S+T: LET TsVAL "O": NEXT x 

Z1S LET PSPEEK VAL "23680": OVER VAL "1"3 PRINT AT VAL “24"-<P+VAL “1">,VAL “18 
A iabebtetasantigseteniactete naw “3 OVER VAL "9" 

220 PRINT ,31 LET GavAL "0"! LET S#VAL “9” 

225 FOR z*VAL “1" TO VAL “S"! LET MEVAL "9" 

230 FOR x*VAL "1" TO VAL "7"3 IF $$¢y,%,W,Z><>" “ THEN LET G3G+VAL $$6y,% HZ 
>: LET MaM+VAL "1": NEXT xs IF x#VAL “8” THEN GO TO VAL "240" 

233 IF S$$¢y,x,W,Z>=" “ THEN NEXT x 

240 IF MCVAL “S“ THEN LET GeG+<< VAL “S“=m>MVAL "149"> 

245 INPUT “Does this team get 8 handycapP Enter pins/Ga"3xt 

246 LET HS< YW, Z exe 

247 IF 3$< ys" “ THEN LET I< y2="99090" 

248 LET GaGt+VAL x$2 IF G>VAL I6¢ > THEN LET 1¢¢ yo=STRE G 

256 PRINT Gi" “38 LET S™S+G3 LET GeVAL “O°! LET MBVAL “O"$ NEXT Zz: PRINT $i PRI 
NT 

239 IF K$< ys" “ THEN LET K$< y=" 69069" 

266 LET veVAL K$<¢ yo LET vav+St LET K6< Y2*STRE Vv 

264 IF J$< yom” “ THEN LET J$< y>="9G00" 

265 IF STR S$>J$<y> THEN LET J$< YoR@STRS $ 

266 LET x$3P$< yt LET PisVAL x$¢ TO 328 LET p2"VAL x$<4 TO > 

267 LET x$™P¢< y>s LET PpisVAL x$<¢ TO 392 LET P2SVAL x#<4 TO > 

268 INPUT “Enter points won"tpwi LET pi=pitows LET x#< TO S>3STRE 1 

269 INPUT “Enter points lost"ipls LET p2sp2tpis LET x#¢4 TO SSTRE 02 

278 LET PS< yoBxe 

272 NEXT y 

278 GO TO VAL "19" 

666 REM AVERAGE CALCULATOR 

601 CL$ : LET TSVAL "0"! LET N@VAL “O"s FOR ySVAL “1° TO VAL “12" 

602 FOR xSVAL “1° TO VAL “7"3s TF NS yx" “ THEN NEXT y 

663 IF ysVAL "13" THEN GO TO VAL “615" 

604 FOR zeVAL “1" TO VAL “W"t FOR g®VAL “1° To VAL “S3°8 IF $86 ¥,x%,2,Q92% >" oot 
HEN LET T#T+VAL $$<y,%,2,Q923 LET NSN?VAL "1" 

605 IF z=Wt+VAL "1" THEN GO TO VAL "619" 

606 IF $$64,x,Z2,Q>8" “ THEN NEXT Qf NEXT z 1 


SS USEAAC “ac h] 477 


607 NEXT Q: NEXT z 

609 IF T=VAL “9° AND N®@VAL "@“ THEN GO TO VAL “614" 

610 LET as<T/N> Ps 

S11 LET AS< y.x>-@STRE As LET COC YX 2BSTRE NI LET 06<y,x>@STRE T ? 
612 IF N<VAL "9" AND L$<y,x>e° " THEN GO TO VAL “614° 

613 IF N<VAL “9" THEN LET Aag< YX PLES XD 

614 LET T=VAL "O"S LET N®VAL “9” 

61S NEXT xs NEXT y 

650 REM HIGH 

S51 LET Mi®VAL “O"! POR Y@VAL “1" TO VAL "12": FOR xsvAL "1" TO VAL “7"3 LET Bs 
(¥.x@STRS VAL “84" 

682 NEXT x3 NEXT y 

683 FOR z=VAL “1" TO VAL "84" - 
654 IF Z®VAL “65" THEN GO TO VAL “10” 

6S6 LET HiGhSVAL “O"s FOR YBVAL "1" TO VAL "12": FOR xeVval "2" TO VAL "7": IFN 
$< y,x>s" “ THEN NEXT x3 NEXT y 

687 IF C8 y,x>=" “ THEN GO TO Val “663” 

658 IF VAL C$¢y.x><VAL “9" THEN GO TO VAL “863” 

659 IF x>VAL “7" THEN GO TO VAL "666" 

S69 IF VAL B$<y,x><$8H1 THEN GO TO VAL “663° 

661 IF As y,x ><>" “ THEN LET A®VAL A$¢ y,x> 

662 IF A>HIQGh THEN LET HiQh@As LET Mytys LET Hx=x 

663 NEXT x 

665 IF ysval “12" ANO HIQR<>VAL “@" THEN GO TO VAL "663" 

686 NEXT y 

667 IF y#VAL “13" AND HIQh®VAL “@" THEN GO TO VAL “678" 

668 LET HiSHi+VAL "1"! LET BS¢Hy,Hx>sSTRE Mit NEXT z 

578 IF z=vAL "8S" THEN GO TO Val “19” 

676 LET HigGh#VAL “O": FOR y@VAL "1" TO VAL “12%! FOR x#VAL "1" TO VAL "2": IFN 
$< y.x>e" “ THEN NEXT xs NEXT y 

677 IF C#<y,x>s" “ THEN GO TO VAL “683" 

675 IF VAL C$¢y,x>>8VAL “9" THEN GO TO VAL “883” 

679 IF x>VAL "7" THEN GO TO VAL "886" 

660 IF VAL 84¢y.x><8H1 THEN GO TO VAL "683" 

681 IF At yLx>d< >” “ THEN LET ASVAL ASC Y,Xx> 

$82 IF A>HIQGh THEN LET HighsAs LET Hysy: LET Hxex 

653 NEXT x 

68S IF ysVAL “12" AND High<>VAL "@" THEN GO TO VAL "688" 

686 NEXT y 

887 IF y=VAL "13" ANO HiQh#VAL. “O" THEN GO TO VAL "19" 


S68 LET HiSHitVAL “1"3 LET 86<MYLNx>@STRE Hil LET ZBZtVAL “1"t GO TO VAL “678" 
883 GO TO VAL "16" 

799 REM OISPLAY HI-AVG POSITION 

710 CLS : FOR y®VAL “1" TO VAL "12"s PRINT “ “tt FOR x=vAL “1" TO VAL "7" 
720 PRINT 88 y,%25" “$8 NEXT x8 PRINT 

730 NEXT y 

740 PAUSE 8: GO TO VAL “19" 

200 REM ENTER LAST YEARS AVG 

86S CLS : FOR yFVAL "1" TO VAL. “12"3 PRINT T$¢ y> 

310 FOR x=VAL “1" TO VAL “7"3 IF NSS Y,x>=" “ THEN NEXT y 

312 IF ysVAL "13" THEN GO TO VAL "19" 

815 PRINT N#€< y,x>5" “s 

$29 INPUT “Last years AVG "3x$ 

S25 PRINT x$$“ AVG"S LET L$< yx mx 

SSG NEXT x3 NEXT y 

846 GO TO VAL "16" 

968 REM LPRINT STANDINGS 


916 LPRINT TAB VAL "31"3" COO VU VU RRRR “ 
911 LPRINT TAB VAL “31"3"0 OF Y voR  R* 
912 LPRINT TAB VAL "32"3"0 OQ U UYU R-~ R* 
913 LPRINT TAB VAL “3i"3"0 O UYU YU RRRR* 
914 LPRINT TAB VAL "S1"3"0 O VU. U-R R" 


915 LPRINT TAB VAL “31"3" 000 . WU R R$ LPRINT 

916 LPRINT TAB VAL “3S"3 "BOWLING LEAGUE": LPRINT 

917 LPRINT TAB VAL "34"3Q$8 LPRINT § LPRINT 3 

91S LPRINT TAB VAL “22"; "Team"; TAB VAL “S6"3"W"S TAB VAL "42"3"L"3 TAB VAL "46";" 
TPNS"; TAB VAL “S3";"NGa";TAB VAL “S9"s;"HSr“s LPRINT 

929 LET H=VAL "290" 

921 LET i=VAL “O": LET JSVAL “Os FOR ZBVAL “1" TO VAL “12" 

922 LET UFVAL “O": FOR y=VAL “1" TO VAL “12"3 LET wesP¢< y> 

924 IF VAL w$< TO 3>>h THEN GO TO VAL “930" 

92S IF VAL wWe<¢ TO 328m THEN LET h®h+VAL “2"s GO TO VAL "936" 

926 IF yi OR y@j THEN NEXT y g 

927 IF VAL w$<¢ TO 3>>u AND U<h THEN LET U@VAL wO¢ TO S>s LET IsVAL w$(4 TO or L 
ET tay - 

929 IF ZSVAL "12" ANO yeVAL "12" THEN GO TO VAL "939" 

930 NEXT y s 

932 IF Z<VAL "10" THEN LPRINT TAB VAL “10"5Z5-" “$T8<t>STAB VAL “S7";UsTAB VAL " 
41°31; TAB VAL "46°3K6<¢ C$ TAB VAL "SS"318¢ CE TAB VAL “SO"ZI$¢%>s GO TO VAL “935" 

933 IF Z>=VAL “10° THEN LPRINT TAB VAL “17"3Zi" “$T$<¢ C1 TAB VAL “S7";USTAB VAL 

"G1°S 17 TAB VAL “46"SK$¢ tS TAB VAL “SS"$18¢ 425 TAB VAL “SO"3 J$< t> 

935 LET heus LET jsis LET ists LET we2" . 

940 NEXT z 

980 RETURN 

999 STOP eee seen 
1660 DIM S$<VAL “12",VAL “7",VAL “S6",VAL “S",VAL “S">s DIM TS<VAL “12"“,VAL “18 

>: DIM N¢C VAL “12",VAL "2" ,VAL “32">3 DIM ASC VAL “32",VAL “7",VAL "6" 3 OIM BV 
AL “12",VAL "7" Wal “2°>§ DIM COCVAL “12",VAL "7",VAL “S">s OIM DSC VAL °12",VAL 

“7" VAL "S$" 0 * 

IM FACVAL "12" WAL "7" WAL "3" >t DIM GSC VAL "12" VAL "7" VAL “S" 22 DIM H$< VAL ss 
2", VAL “36",VAL “3° VAL “St DIM IS<VAL “12",VAL “4">8 DIM JOC VAL “12 VAL “4 ? 
: DIM K$< VAL “12",VAL “S">s OIM LOCVAL “12",VAL “7",VAL “S"9s OM PSC VAL “12",VA 
L “6">: LET way 

aL “@" 

1061 GO TO VAL "116" 

1908 STOP 

1789 REM SUB TO FINO & LPRINT HIGH THREE 


are for 


Oliger disk 


system, you will need to change all lines that deal with printer 


output since it is designed for the Oliger 


and an 80 column printer. 


commands 


don’t have an 
“B" board 


Please note that any lines that have a LET/p=o command 
If you 


the Oliger disk interface. 


1781 CLS : LPRINT TAB 3;"“HiTeam Game"; TAG 22; “HitTeam Series"; TAB $3; “Hi-Inid. Cain 
e";TAB 64; “Hi-Ind. Series” 

1788 GO SUB 1816: GO $UB 1866: GO SUB 1960: GO SUB 1950 

176G LPRINT TAB 13T¢<@, TO 19>;TAB 33HITAB SLUT, TO 19>; TAB S3;p; TAB 4O;NS< y 
L,X12¢ TAB S43 dg TAB 615NS< Y4 x41 TAB 7E5K 


1785 CO SUB 1830: GO $UB 18741 GO SUB 19191: GO $U8 1966 ‘ 
1778 LPRINT TAB 13T$¢B, TO 10>§TAB 13515 TAB 245TH, TO LO TAB SSEQ TAB 40jNS< y 
2,X2>;TAB S4;@; TAB S13NS< US.xS23 TAB 7Oim_ - 
1778 GO SUB 18401 GO SUB 18601 GO SUB 1929: GO SUB 1979 
1780 LPRINT TAB 13T8<C, TO 10>;TAB L334; TAB 215 TSN, TO LO $4TAS BSpvsTAB 4O;5N8< 4 
3,x3>; TAB S43 ¢; TAB 613NS< YO.x6 STAB 7850 
1788 GO SUB 1880: GO SUB 1890: GO SUB. 1936: GO SUB 1980 
1790 IF COPY THEN PRINT "Make 2040 Screen Copy now PRESS ANY KEY": PAUSE 9 
+ COPY : LET /p#o: POKE VAL “23324",VAL "16" 
1798 RETURN 
1300 REM TEAM & IND. HI~S SUB 3 
13819 LET COPY=6: LET a8@: LET H8G: LET G=G: FOR y#i TO 12 
1820 LET G=VAL I$¢y>t IF G>h THEN LET H8G2 LET amy 
1625 NEXT y 
18268 RETURN 7 
220 LET C=O: LET b8@: LET i263 FOR ysi TO 12: IF y®a THEN NEXT y 
1831 IF VAL 1$< y#h THEN SEEP..S,1: PRINT TSC y>,166 G28 LET COPY#13 NEXT y 
1832 IF VAL 144 y><h THEN LET G2VAL 1$< y> 
1833 IF G>i THEN LET i3G: LET b#y 
18638 NEXT y 
1836 RETURN 
1340 LET C=6: LET c#@: LET jm@s FOR y#l TO 123 IF y@a OR ysb THEN NEXT y 
1841 IF VAL 1$¢y>#i THEN BEEP .8,13 PRINT T$¢y>,1$< Yr LET COPY31: NEXT y 
1842 IF VAL 1$¢yo<i THEN LET G=VAL 146 W> 
1343 IF G>j THEN LET j#Gs LET c=y 
1848 NEXT y 
1846 RETURN 
1880 FOR yi TO 12: IF y#a OR y#b OR ysc THEN NEXT Y 
1851 IF VAL I$<¢y>#j THEN BEEP .5,12 PRINT T$<y¥>,1$¢ 42s LET COPY=13 NEXT y 
1855 NEXT y 
1356 RETURN 
1266 LET S=0: LET p#Gs FOR y#1i TO 12 
1865 LET S=VAL J¢¢y>8 IF S>p THEN LET p=$: LET ray 
1867 MEXT y 
1868 RETURN 
1870 LET $=@: LET g26: FOR y#i TO 12: IF y=r THEN NEXT 4 
1871 IF VAL J$¢ yO THEN BEEP ,8,13 PRINT T$¢y>,J86 42% LET COPY21: NEXT y 
1872 IF VAL J$<yo<p THEN LET S=VAL J$<y> 
1874 IF $>q THEN LET Q=$3 LET tey 
1578 NEXT y 
1676 RETURN 
1320 LET $#63 LET v=@: FOR y#i TO 12: IF y#r OR y=t THEN NEXT ¥y 
1234 IF VAL J$<¢ yo=q THEN BEEP .8,18 PRINT T$6y>,J$< yo: LET COoPY=1: NEXT y 
1382 IF VAL J$< y><q THEN LET S=VAL J$< y> 
1964 IF Soy THEN LET v#$: LET nty 
1885 NEXT y 
1338 RETURN 
1899 FOR y=1 TO 12: IF y=r OR yst OR y= THEN NEXT y 
1391 IF VAL J#<yo2v THEN BEEP .5,13 PRINT T$<4y?,J66 W>é LET COPY=13 NEXT y 
1895 NEXT y 
1296 RETURN 


1900 LET G=G: LET dos FOR y™i TO 128 FOR x1 TO 73 IF NS¢U,x>=" * TH 
EM NEXT y 
1901 IF G$<y,x2="  " AND C$¢y,x>8" "THEN NEXT x 


1965 LET G=VAL G$<¢y,%>: IF God THEN LET daG: LET yitys LET x1*x 
1906 NEXT x: NEXT y 

1907 REM PRINT N#< yt ,x3 2,0 

1365 RETURN 


1910 LET G=Q: LET @8@2 FOR ysi TO 121 FOR x1 TO 7: IF N$<y,x>=" “TH 
EN MEXT y a 
1311 IF C$<y,xom! “ AND C44 Yy,x>8" “ THEN NEXT x 


1912 IF VAL G$¢4y,x>>d THEN NEXT x. 

1913 IF y=yl AND x*x1 THEN NEXT x 

1914 IF VAL G$<y,x>md AND y<>yi AND x<>x1 THEN BEEP .8,13 PRINT N$<Y,%>7 686 Yat 
LET COPY13; NEXT x3 NEXT y 

1915 IF VAL G$<y,x><d THEN LET G3VAL G8<y,x%>3 IF Gre THEN LET e=G: LET y2=yi LET 
X23x ; : 

1916 NEXT xs NEXT y 

1917 REM PRINT N#€ Y2,x27,@ 

1918 RETURN : 

1920 LET G=O6s LET #963 FOR y#1 TO 12: FOR x™i TO 78 IPF NS<Y,x>8" 2 4 
EN NEXT y as 


1921 IF GOS y,x>8”" “ AND CO< y,x 28” “ THEN NEXT x 

1922 IF VAL G$¢y,x>>@ THEN NEXT x.. 

1923 IF y®y2 AND x®x2 THEN NEXT xX 

1924 IF VAL Gé<y.x>#@ AND y<>y2 AND x<>x2 THEN BEEP .8,1: PRINT N¢< y,x>,C8< Yix>: 
LET COPY#1: NEXT x: NEXT y 

ase IF VAL G¢<y,x%><@ THEN LET GBVAL G$<y,x>8 IF Gof THEN LET f3G3 LET y3=y3 LET 
x3=x 

1926 NEXT x3: NEXT y 

1927 REM PRINT N#< y3,x3>,¢ 

1928 RETURN roe 

1938 FOR y#i TO 128 FOR xi TO 73 IF N#< Y,x>=" “ THEN NEXT y 

1931 IF G$<y,x>=" “ BND C8<¢ yx >=” “ THEN NEXT x 

13932 IF VAL GE<¢y,x2>f THEN NEXT x 

1933 IF yeys AND x#x3 THEN NEXT x ee 

1934 IF VAL G$<y,x>@f AND y<>y3 AND x<>x3 THEN BEEP .5,33 PRINT NOS YLxXo CH. yd 
LET COPY™1; NEXT xi NEXT y . 

1938 RETURN 

19806 LET $26: LET k#@1 FOR y™1 TO 128 FOR x#i TO 73 IP NE<y,x>m” “ TH 
EN NEXT y 


oe i 
SS SSECOSSSS'S'CS:~ =, 
—. ee “ AND C86 y x=" “ THEN NEXT x 
BVAL FE<y,x>s IF $> THEN LET k=; 
1986 NEXT x: NEexT “ oe eee are 
1987 REM PRINT NS< U4 x45, % 
1988 RETURN 
1960 LET $me; LET m™g@; FOR “*1 TO 12: fF = - * 
EN NEXT y 2 OR x™1 To 73 TF NS yx >= TH 


1961 IF Fe yx>e" = ayy CS yx" THEN NEXT x 

1962 IF VAL PS y,x>>k THEN NEXT 

1963 IF ysy@ ano *™x4 THEN NEXT x 

1964 IF hed, PK AND u<>u4 AND X<>x4@ THEN BEEP °5,148 PRINT N86 YLx> FEC yx 8 


1965 IF VAL Fecyxo<k THEN LET S=vaL PS U.x23 IF som THEN LET mss: LET @S=y: LET 


1966 NEXT xs NEXT 4 
1967 REM PRINT N¢< 4S .xS>,m 


1968 RETURN sd 

Raietonag $=6: LET oma; FOR y™i TO 12; FOR xsi TO 73 Ip N#< yg xa” " TH 
4 

1971 IF F¢<y,x>=~ “AND CE6y,x >=" “ THEN NEXT x 


1972 IF VAL F¢< oX>>m THEN NEXT x 


1974 IF VAL F$¢y,x2=m. AND WS>US AND X<>xS THEN BEEP 45,4; PRINT N8< yx >UF$< yo; 
LET COPY"! NEXT x3 NEXT y , $y, ca es 


1975 IF VAL F$<¢ yx dm THEN LET S=vaL FS ylx8 IF $y0 THEN LET o=$: LET YE=ys LET 


4 
1977 REM PRINT N$< 46 ,x6>,0 
1373 RETURN 
1980 FOR y=1 To 122 FOR x=1 To 73 IF N¢< Ys >= “ THEN NEXT y 
1981 IF F¢e Y.xos” * AND C84 yx om “ THEN NEXT x 
1982 IF VAL Fecy,x>>0 THEN NEXT x 
1933 IF y=y6 AND *8x6 THEN NEXT x 
1984 IF VAL r¢¢ ¥s%2™O AND y<>yS AND *<>x6 THEN BEEP +S,11 PRINT N¢< WoXO FRC yyxos ” 
LET COPY=13 NEXT x3 NEXT y 
1988 RETURN 
1999 CO TO 16 
2106 CO TO VAL “196° 
2208 GO TO VAL "296" 
2386 GO TO VAL “860” 


=408 CLS : PRINT TaB VAL "10"$"LPRINT MENU” 
2901 PRINT ’TAB VAL "7"3 "A. NEXT WEEKS SCHO” 
2462 PRINT ‘TAB VAL “2"$"B. TEAM STANOINGS" 
2403 PRINT ’TAB VAL “7"i"°C. DEVELOPE PROGRAM 
CHOOSE LETTER“ ‘ 
2405 IF INKEY$2"a" oR INKEY$="A" THEN GO TO VAL "2415" 
2406 IF INKEY$="b" or INKEY$="8" THEN GO To VAL "38066" 
2407 IF INKEY$z2"c" op TMKEY$2"°C" THEN POKE VAL “23780" ,VAL “@"s PRINT “YOU are ri. 
OW in BASIC RAM, POKE 23786 ,128:¢0 TO 18 to go) back to Cartridge.": LIST 


2409 CO TO VAL “2465" 

2416 STop 

2415 INPUT “Date? “3 Qt 

2416 FOR v=1? To 28 STEP 2: LET /p=o; POKE 2332416: LPRINT $ LPRINT ;: LPFINT 
2417 20 SUB 966 

2426 LPRINT 3 PRINT “AIG B'svg" “ss INPUT “TEAm & > “$%8 PRINT THUS Tm et et 
2421 LPRINT TAB 13; "Alley 8"3v3TaB 325 T8< 85 TAB 573" Team 8st: LPRINT 2 LPRINT 
2423 FOR x™1 TO 7; IF N¢< tx a” “ THEN LPRINT 5 LPRINT : GO To 2430 
2424 IF AS¢t,x>=" “ THEN LET A=vVAL $< t,x>8 GO TO 2428 

2428 LET ASINT VAL ASC t,x 

2423 LPRINT TAB 243" “ENS By D5" “FAL” AVG." LPRINT 

2429 NEXT x = 

243G PRINT “ALY B"yvegs” “|8 INPUT “Team ¢ P “sta PRINT T8Ct3" Tm BW5t 

2431 LFRINT TAB 13; "Alley S"ivt+i3 TAB SZ5TS< $3 Taw S73" Team &"3t: LPRINT ¢ LPRIN 


T 
2433 FOR x=1 TO 7: IF N¢< tx a" 2 THEN LPRINT 3 LPRINT ;: SO TO 2440 
2434 IF Ag<t,x>=" “ THEN LET A=VAL L$¢ t.x> GO TO 2438 


2435 LET A®INT VAL AS< &x> 

2433 LPRINT TAB 24," “ENS Big” "SAS" AVG."3 LPRINT 

2439 NEXT x 

2440 LPRINT : LPRINT 3 NEXT v 

2494S LPRINT : LPRINT ; LPRINT 

2450 GO TO 19 

2499 STOP : 

2590 REM INFORMATION WINOOW - 

2301 CLS $ PRINT “Line 1009 initijazes program and reserves memory." 


2502 PRINT “Team Names: OIM 7$<12,18> Ind. Names; OIM N$¢12,7,32> Ind 
Scores: OIM $¢< 12,7 ,38,3,3>Ind, HiGa 5 DIM G¢< 12,7,3> - Ind. HiSr $ DIM F$< 
12,7,3> Team HOC : DIM He< 12,36,3,.3> Team HGa & OIM 1$¢12,4>" 
2503 PRINT “Team HSrp 3 DIM 386 12,49> Team TPins: OIM K$<12,8> “SVA 
L Ys-ls3" AVG : OTM L$¢12,7,3) Ind. AVG 3 OIM A$< 12,76)" 
2584 PRINT “Hiav pos ; OIM B#<12,7,2> _ Num. Games § DIM C4<12,7,3> Tota 
| Pins: OIM O$<¢ 32,7,8) Team Pts, i DIM P¢ 312,6> - W3NUM Weeks 

$year” : 
2308 PRINT wf ‘cine 606 calculates averagesand stores ind, AVG, NUMber of game 
S and total pins, : Line 869 Should be R 
UN right after new weeks scores are ensered so that printing info. is 3 
vailable,” ; . 
2566 PRINT °“Line 100 Starts the season Line 290 Enters weelky scores Lin 


@ 606 Caiculates aver s Line 688 stores HiavG POsi tions”. . 
2509 PRINT ’"To get Od 1iStiINg Of Numbers for order of high aves. co 
TO 796." 

2519 PRINT ’“To enter iast years averages, GO TO see," 

2515 PRINT ’“Line 966 Ts a high ind. average SUB routine.” : 

2528 PRINT °° “Line 2415 LPRINTS weekiy sched. to large printer. 2418 to Skip da 
t@. 2417 to correct error, : bine 3000 LPRINTS 
top Line 3886 LPRINTS bottom of standing sheet. 


CCU gee 


2Sct PRINT “Line 1759 LPRINTS the Migh Threepart of standing sneet cetumzen Looe 
and 3566. If there are dup- |icates they will Not be printedthough they wil! sho 
won screen and you will be asked to make a copy of screen on 2848 printer.” 
2528 PRINT ’"“Line 3406 contains OUR !ogo for standing sheet. Needs to be run on! 
y once. In direct mode GO SUB 3499 Also LET ys=year” 

23898 PAUSE 9 

25808 GO TO 19 

2608 GO TO 33068 

2930 LET /pzos POKE 23324,103 FOR U™i TO 6: GO TO 3600 

3690 REM TEAM STANOINGS ROUTINE 

3802 LET /p#0! POKE 23324¢,19 2 

3005 LPRINT $ LPRINT 3 LPRINT TAS 433 "Team"; TAB S83; "W"3 TAB S2y"L"S TAB 68; "TRS"; 
TAE 71;“HGa"; TAB 76; "HSr“3i GO SUB 3326 

3006 LPRINT TAB S83Zj TAB 40; TS< tOPTAB S7EUsTAB Sip 13; TAB S85K$6 L953 TAB 715186 t>5TA 
B 76; J$<t>3 GO SUB 3338 

3008 FOR X#1 TO 61 LPRINT TAB S1ES<x >; TAB SOszZzsTAB 965796 t>; TAB S7iU; TAB 61; 1578 
B SS3K$< tos TAB 715106 bO3 TAB 765386 %>3 GO SUB 3338 

3016 NEXT X . 

3612 LPRINT TAB 36;Z; TAB 405T$¢%>5 TAB 873U3 TAB GIs IETAB 633K$<6 93 TAB 715146 tog Ts 
B 76; J$< toe CO SUB 33358 

3615 LPRINT TAB 10; "BOWLING LEAGUE’ STAB 38:2; TAB 463794 t>; TAB S73U;TAB 6131; THE 
ES;KS< tO5 TAB 715196 293 TAB 76334493 GO SUB 3338 

3013 LPRINT TAB 3752; TAB FO; T$< tOS TAB S7;U; TAB 6131/3 TAB OSjKS<C LF TAB 715146 t 237% 
B 76; J$<t>: CO SUB 3338 

3G19 LPRINT TAB 115Q¢$TAB 374)Z; TAB 4047$< 0; TAB S7SUSTAB S13! ; TAB 685K$642; TAG 7 
1p 1t< to; TAB 763 J$¢t>3 GO SUB 3338 

3826 LPRINT TAB S74Z{TAB 405 T$< tos TAB S7EU;ZTAB 6151; TAB 685K$< b>; TAB 715 1$< t5 TH 
B 76; Je t> 

SOZ2 CR RINT are ee re ne aman a seen ae aaa nee ara= 
3023 SO SUB 17389 

3024 LPRINT “eesemn nena nen nn enn -nn--— oo ea es ow Pm nme nner nnn ea ween nen ———- 
3a25 CO TO 3866 

2319 3TOP 

2328 LET H=200 

3321 LET i=0; LET j=6: FOR z™1 TO 12 » 

3522 LET u=9: FOR ysl TO 12: LET we$=Ps< y> 

3323 IF VAL w#< TO 3>>h THEN GO TO 3330 

3324 IF VAL wW#< TO 3.3h T heh+1: GO TO 3336 
3325 IF y=i OR ysj THEM, 
2326 IF VAL w$< TO 3>>4 
ET t=y 

3329 IF Z=12 AND yz12 
wt<4 TO >: CO TO 3333 
3336 NEXT y . 
3333 RETURN : 
3335 LET h2us LET j#is LET ist: LET woz" ” 
3240 NEXT Zz 

3350 RETURN 

3399 STOP 

3400 OIM £$<(5,1998 LET E#<1>=" GOO UW U RRRR “3 LET E¢<29="0 Oo UU Uo=R 
RR": CET E$¢ 39s"9 Oo VW UR R"3 LET E$<4>2"90 Qo VU Wo RRRR “: LET ER o> 
="a oO ow UR R "i LET £4#<6>=" ooo YUU R R" 

3401 RETURN 


ig % 
THEN LET U=VAL w$< TO 353 LET I=VAL w#<4 TO 0: L 


LET w$3P$< y>s LET U=VAL w$< TO 3>; LET 1=VAL 
“ ~~ 2 


awe 
grasa: 9.90 Oem, 


“$TAB 20; "GMS"; TAB 243 "TPins";TAB 36; "HCS" 
er"; TAB S98; "AVG"; TAB 63; "GMS"; TAB 67; °TFins 


ss 
T 'xsmngeLET ALZINT VAL AS yx? 2 
252G LET z=zt+421 GO SUB 3750° 

S321 IF y=13 THEN LET z™z-421 GO To 3879 

o5eS LET z2"zs LET zez-423 LET y2™y: LET x2"x3 LET AZ®INT VAL A$‘ y,x> 

2326 IF Z<1G THEN LPRINT TAB 15 Z1$TAB SENGC YL x1 >9TAB 16;ALf TAB 203086 yl 1S TAE 
Fi OF Wt KLE TAB 303686 Yl x2 23 TAB 3957 $< Yl, x15 TAB 905" 1"STAB 433223 TAB FOENES J 
gee tas SSSAZZTAB O35CO< YS .xZ > TAB 674086 2x22; TAB 7356$< y2,x2 3 TAB PALF SK YZ, 
3846 IF Z*31Q THEN LPRINT TAB Of ZI TAB SINS YL XI OITAG S6FALS TAB 205086 Yl xtogpta 
B 24; 0$¢ Yl Xt >¢TAB SOCK YL xd >ETAB S45 FHC Ud X22 TAS G05" 1" STAB 43522; TAB 965 N5< 
YZ,X2>; TAB S9ZAZZTAB 635CH<S yY2,xZ>E TAB S7HOK YS .XZ7FTAS 73568 YZ,xXZ>; TAB 775 PES ys 
)x2> 
Y38S@ NEXT z 

3555 STOP 

3560 LET z=z+VAL “1"s GO SUB VAL “3750" 

3565 LET zisz: LET yitys LET x1*®x awit 

3566 IF Z®VAL "43" THEN LPRINT } LPRINT : LPRINT : LPRINT : LET Z2=VAL "“O"S NEXT 

us GO TO Val "19" Lae. 

3867 LET AL=INT VAL Ag<y,x>? Lael. 2 
3570 LPRINT TAB VAL “O"$Z13TAB VAL “S3"3N$< YL ,x1>3TAB VAL “16"ZAL;TAB VAL “26 ict 
Cyt xLopTAB VAL "24" 3086 yl xd >p TAB VAL “SO"9GSS YL. x2P TAB VAL "SO" SF $6 yl xi o5 TAB 

VAL "4Q"gu i" 

3575 CO TO VAL "3566" 

3749 STOP 

3750 REM INO. HI-AVG SUB F ; 

3768 FOR y=VAL “1" TO VAL "12"s FOR xmVAL "1" TO VAL "7": IF N8<Y,x>#' 

* THEN NEXT y 23 

3770 IF y=VAL "13" THEN LET z™z-VAL "42": GO TO VAL “3876” 

3773 IF z=VAaL "88" THEN GO TO VAL “3798" 

3774 IF VAL B$<y,x>#Z THEN RETURN 

2775 NEXT x2 NEXT y 

3798 LET z=z-VAL “42": GO TO VAL “3$70" 

3999 STOP ee 

9000 SAVE “BOWLING” LINE VAL “10" “ 

9016 CLS : PRINT TAB VAL "S";"To VERIFY, rewind and: PRESS ANY KEY 

9929 PAUSE 9: VERIFY “BOWLING” 

9025 cO TO VAL "10" 
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